
   4 CLEAR ;CY=0;INPUT "TRIES 1-75"J;IF J>75GOTO 4
   5 CLEAR ;BC=80;FC=135;NT=1;@(61)=2216;@(62)=10282;@(63)=10242;@(64)=-24566;@(65)=-24536;@(66)=-22486
  12 @(67)=-22518;@(68)=10240;@(69)=40;@(70)=160;@(71)=42;@(72)=-32600;@(73)=-21846;@(74)=-22358
  15 @(75)=42;@(76)=0;F=16426;D=61;E=68;GOSUB 500;F=16500;D=69;E=76;GOSUB 500;FOR A=61TO 180;@(A)=0;NEXT A
  20 FOR A=1TO 20;B=RND (60);@(B+60)=1;@(B+120)=1;NEXT A;Z=5;GOSUB 300;Z=0;Q=0
  25 BOX -68,39,10,9,3;BOX 0,16,160,1,1
  30 CY=37;CX=-34;PRINT "HARE LOCATION";IF &(23)=1GOSUB 400;PRINT "   LEVEL?";GOTO 35
  31 GOTO 30
  35 IF &(22)=8R=1;GOTO 40
  36 IF &(21)=8R=2;GOTO 40
  37 IF &(22)=16GOSUB 460;CY=29;CX=-16;PRINT "SAME";GOSUB 470;GOTO 45
  38 GOTO 35
  40 CY=29;CX=13;PRINT "LOCATION?";CX=0;INPUT I;A=(R×60)+I
  45 IF (I>60)+(@(A)=1)GOSUB 460;GOSUB 480;GOSUB 410;GOTO 30
  65 GOSUB 460;GOSUB 410;BOX -68,39,10,9,3;BOX 68,39,10,8,3
  70 CY=37;CX=-31;PRINT "FOX LOCATION";PRINT "   LEVEL?
  80 IF &(16)=2H=2;CY=21;PRINT "   3RD LEVEL";GOTO 95
  85 IF &(16)=1H=1;CY=21;PRINT "   2ND LEVEL";GOTO 95
  90 GOTO 80
  95 CY=29;CX=11;PRINT "LOCATION?";P=KN(1)÷2-3;IF P<1P=1
 100 CY=21;CX=32;PRINT #1,P;IF &(16)=16GOTO 120
 110 GOTO 95
 120 T=(H×60)+P;IF @(T)=1GOSUB 460;GOSUB 480;GOSUB 470;GOTO 70
 130 GOSUB 310;@(T)=1;Q=Q+1;IF T<121D=3
 140 IF T>120D=-1
 150 NT=6;BOX C+2,G+D,14,4,3;MU=C;NT=1;IF P=IIF R=H CX=-18;PRINT "FOX WINS";STOP
 160 GOSUB 460;CY=29;CX=-29;PRINT "NOT HERE";GOSUB 470;GOSUB 460;BOX 68,39,10,8,3;IF Q=J CX=-21;PRINT "HARE WINS";STOP
 165 GOTO 25
 300 FOR P=1TO 60;IF @(P+60)=1NEXT P;RETURN 
 310 IF P<=10K=P;G=0;GOTO 330
 320 G=P÷10;L=G×10;K=P-L;IF K=0K=10;G=G-1
 330 C=(-70+(15×(K-1)));G=(11-(G×10));IF Z=5CY=G;CX=C;PRINT #1,P;NEXT P
 340 RETURN 
 400 FOR Z=176TO 40STEP -2;&(10)=Z;NEXT Z;RETURN 
 410 FOR Z=40TO 176;&(10)=Z;NEXT Z;RETURN 
 460 BOX 0,30,126,24,2;RETURN 
 470 FOR Y=1TO 800;NEXT Y;RETURN 
 480 CY=37;CX=-32;PRINT "ILLEGAL MOVE";RETURN 
 500 FOR B=DTO E;%(F)=%(F)+@(B);F=F+40;NEXT B;RETURN 
:RETURN ;RUN 
>